﻿Module CharacterIntroduction
#Region "Character Introduction"
    Public Sub PreIntro(ByVal txt As String, ByVal nputlen As Short)
        MainProgram.FormOpen = True
        MainProgram.SND("/gThe skinny old man smiles and allows you to enter the nexus.")
        MainProgram.SND("/gLight blinds you for a moment as you step through the nexus you hear it fluctuate for a second.")
        MainProgram.SND("/gYour eyes open and try to focus, you appear to be standing inside of a nexus now, staring into a city.")
        MainProgram.MapData = MainProgram.GetFileContents(Replace(MainProgram.DirMaps, MainProgram.UserLocation_CurrentMap, MainProgram.UserLocation_EntranceMap))
        MainProgram.DirMaps = Replace(MainProgram.DirMaps, MainProgram.UserLocation_CurrentMap, MainProgram.UserLocation_EntranceMap)
        MainProgram.DirMapCur = Replace(MainProgram.DirMaps, "Base.TG", ".TG")
        MainProgram.User_MaxHP = LTrim(Str(MainProgram.User_Constitution * 10))
        MainProgram.User_MaxSP = LTrim(Str(MainProgram.User_Dexterity * 10))
        MainProgram.User_MaxWP = LTrim(Str(MainProgram.User_Intelligence * 10))
        MainProgram.User_CurHP = MainProgram.User_MaxHP
        MainProgram.User_CurSP = MainProgram.User_MaxSP
        MainProgram.User_CurWP = MainProgram.User_MaxWP
        MainProgram.UpdateBars()
        Music.PlayMusic("EnvironmentMusic")
        MainProgram.State = "Open"
        LoadSector.LoadSector(3, 1)
        If MainProgram.User_Password <> "N/A" Then
            SavePlayer.saveplayer("Create")
        End If
        MainProgram.SND("/gThe wounded soldier motions you over to the building.")
        MainProgram.SND("/c[Options: /GAccept/c, /GDecline/c, /GGoodbye/c.>")
        MainProgram.State = "Introduction"
    End Sub
    Public Sub ProcessIntro(ByVal txt As String, ByVal nputlen As Short)
        If txt = Mid("accept", 1, nputlen) Then
            MainProgram.SND("/gYou walk over to the building and lean on it next to the soldier.")
            MainProgram.SND("/wSardis - /G" + Chr(34) + "/gMy name is Sardis, I hear you are new here?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c, /GGoodbye/c.]")
            MainProgram.State = "Introductionp2"
        ElseIf txt = Mid("decline", 1, nputlen) Then
            MainProgram.SND("/gThe soldier frowns and looks around.")
            MainProgram.SND("/gThe soldier walks toward another soldier and leans down to the ground whispering something into his ear.")
            MainProgram.SND("/gThe sitting soldier looks at you and nods.")
            MainProgram.SND("/gThe standing soldier walks over to you and draws his sword as he reaches you.")
            MainProgram.SND("/wSoldier - /G" + Chr(34) + "/gI'm not sure who you think you are but you need to be more careful in these parts./G" + Chr(34))
            MainProgram.SND("/gThe soldier leans forward, swordpoint dropping to the ground.")
            MainProgram.SND("/wSoldier - /G" + Chr(34) + "/gIts not smart to be making enemies after just getting here. " + MainProgram.User_HomeProvince + " eh? I'm sure thats where your from, i see it in you.")
            If MainProgram.User_HomeProvince = "Tharsis" Then
                MainProgram.SND("/wSoldier - /G" + Chr(34) + "/gTharsis is a peaceful region but as of late, Lord Mandak has been causing some problems. How about i give you the basics just to make sure your ready for whatever comes your way? Its not good to end up like these men here./G" + Chr(34))
                MainProgram.SND("/c[Options: /GYes/c, /GNo/c, /GGoodbye/c.]")
                MainProgram.State = "Introductionp2b"
            ElseIf MainProgram.User_HomeProvince = "Narsis" Then
                MainProgram.SND("/wSoldier - /G" + Chr(34) + "/gNarsis is dangerous and with your attitude you won't last long. Learn to adapt, I'm sure i may help you with that too..Whatda' ya say?/G" + Chr(34))
                MainProgram.SND("/c[Options: /GYes/c, /GNo/c, /GGoodbye/c.]")
                MainProgram.State = "Introductionp2b"
            ElseIf MainProgram.User_HomeProvince = "Crecia" Then
                MainProgram.SND("/wSoldier - /G" + Chr(34) + "/gCrecia is a powerful trade region, only the smart can survive in such an area, I might be able to help you. Are you up to it?/G" + Chr(34))
                MainProgram.SND("/c[Options: /GYes/c, /GNo/c, /GGoodbye/c.]")
                MainProgram.State = "Introductionp2b"
            ElseIf MainProgram.User_HomeProvince = "New Saellem" Then
                MainProgram.SND("/wSoldier - /G" + Chr(34) + "/gNew Saellem is a mysterious region of battle and magic, with your seemingly close mind, and bad attitude I'm not sure you'll survive. Would you like my support in a few basic instructions?/G" + Chr(34))
                MainProgram.SND("/c[Options: /GYes/c, /GNo/c, /GGoodbye/c.]")
                MainProgram.State = "Introductionp2b"
            ElseIf MainProgram.User_HomeProvince = "Jewall" Then
                MainProgram.SND("/wSoldier - /G" + Chr(34) + "/gWell you'll fit right in with that attitude, just like them stubborn dwarfs. Hmm... what do ya think? How about i run you through a few basics just to see if your ready./G" + Chr(34))
                MainProgram.SND("/c[Options: /GYes/c, /GNo/c, /GGoodbye/c.]")
                MainProgram.State = "Introductionp2b"
            End If
        ElseIf txt = Mid("goodbye", 1, nputlen) Then
            MainProgram.State = "Open"
            CMD("look")
        Else
            MainProgram.SND("/R" + txt + " is not one of the options.")
        End If
    End Sub
    Public Sub ProcessIntro2(ByVal txt As String, ByVal nputlen As Short)
        If txt = Mid("yes", 1, nputlen) Then
            MainProgram.SND("/wSardis - /G" + Chr(34) + "/gGreat, its a pleasure to meet you. No need to share you name " + MainProgram.User_Name + ". I overheard you speaking with the The skinny old man. I'm here to make sure all newcommers are proficiently trained in the ways of the world. I do, however have a lot to do, will you be in need of help?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c, /GGoodbye/c.]")
            MainProgram.State = "Introductionp3"
        ElseIf txt = Mid("no", 1, nputlen) Then
            MainProgram.SND("/wSardis - /G" + Chr(34) + "/gGreat, its a pleasure for you to return back to Sedia. If you would like i might refresh you in your skills to make sure you ready?/G" + Chr(34))
            MainProgram.SND("/c[Options: /GYes/c, /GNo/c, /GGoodbye/c.]")
            MainProgram.State = "Introductionp3"
        ElseIf txt = Mid("goodbye", 1, nputlen) Then
            MainProgram.State = "Open"
            CMD("look")
        Else
            MainProgram.SND("/R" + txt + " is not one of the options.")
        End If
    End Sub
    Public Sub ProcessIntro3(ByVal txt As String, ByVal nputlen As Short)
        If txt = Mid("yes", 1, nputlen) Then
            MainProgram.SND("/wSoldier - /G" + Chr(34) + "/gGreat! First off though, my name is Sardis./G" + Chr(34))
            MainProgram.SND("/gSardis stands up straight and nods.")
            MainProgram.SND("/wSardis - /G" + Chr(34) + "/gSo where shall we get started?/G" + Chr(34))
            MainProgram.SND("/gSardis bites his lip as he thinks for a second, and then nods.")
            MainProgram.SND("/wSardis - /G" + Chr(34) + "/gThe first part to being an adventurer in these parts is protecting yourself. Lets start by finding you a weapon./G" + Chr(34))
            MainProgram.SND("/gSardis walks over to the soldier sitting on the ground, saying a few words and in part procures a dagger from the mans belt.")
            MainProgram.SND("/gSardis walks over to you handing you the dagger.")
            MainProgram.SND("/wSardis - /G" + Chr(34) + "/gHere take this./G" + Chr(34))
            MainProgram.User_additem(1)
            MainProgram.SND("/wSardis - /G" + Chr(34) + "/gLet me know when your ready./G" + Chr(34))
            MainProgram.SND("/g*****************************( /YBeginners Tips/g )*****************************")
            MainProgram.SND("/g* /yUse the 'inventory' command to view the contents of your backpack        /g*")
            MainProgram.SND("/g* /yYou can equip the weapon using the command 'wear dagger'                 /g*")
            MainProgram.SND("/g* /yUse the 'equip' command to view items currently equiped                  /g*")
            MainProgram.SND("/g* /yYou can talk to Sardis by using the command 'talk sardis'                /g*")
            MainProgram.SND("/g* /yFor more basic information and beginners tips type 'help beginner'       /g*")
            MainProgram.SND("/g* /yFor more detailed information and beginners tips type 'help'             /g*")
            MainProgram.SND("/g****************************************************************************")
            MainProgram.State = "Open"
        ElseIf txt = Mid("no", 1, nputlen) Then
            MainProgram.SND("/wSardis - /G" + Chr(34) + "/gI see.. well if you change your mind, my name is Sardis, and i wish you the best.")
            MainProgram.SND("/gSardis nods repectfully at you and goes back to lean against the wall.")
            MainProgram.State = "Open"
            CMD("look")
        ElseIf txt = Mid("goodbye", 1, nputlen) Then
            MainProgram.State = "Open"
            CMD("look")
        Else
            MainProgram.SND("/R" + txt + " is not one of the options.")
        End If
    End Sub
    Public Sub ProcessIntro4(ByVal txt As String, ByVal nputlen As Short)
        If txt = Mid("yes", 1, nputlen) Then
            MainProgram.SND("/wSardis - /G" + Chr(34) + "/gGreat! So where shall we get started?/G" + Chr(34))
            MainProgram.SND("/gSardis bites his lip as he thinks for a second, and then nods.")
            MainProgram.SND("/wSardis - /G" + Chr(34) + "/gThe first part to being an adventurer in these parts is protecting yourself. Lets start by finding you a weapon./G" + Chr(34))
            MainProgram.SND("/gSardis walks over to the soldier sitting on the ground, saying a few words and in part procures a dagger from the mans belt.")
            MainProgram.SND("/gSardis walks over to you handing you the dagger.")
            MainProgram.SND("/wSardis - /G" + Chr(34) + "/gHere take this./G" + Chr(34))
            MainProgram.User_additem(1)
            MainProgram.SND("/wSardis - /G" + Chr(34) + "/gLet me know when your ready./G" + Chr(34))
            MainProgram.SND("/g*****************************( /YBeginners Tips/g )*****************************")
            MainProgram.SND("/g* /yUse the 'inventory' command to view the contents of your backpack        /g*")
            MainProgram.SND("/g* /yYou can equip the weapon using the command 'wear dagger'                 /g*")
            MainProgram.SND("/g* /yUse the 'equip' command to view items currently equiped                  /g*")
            MainProgram.SND("/g* /yYou can talk to Sardis by using the command 'talk sardis'                /g*")
            MainProgram.SND("/g* /yFor more basic information and beginners tips type 'help beginner'       /g*")
            MainProgram.SND("/g* /yFor more detailed information and beginners tips type 'help'             /g*")
            MainProgram.SND("/g****************************************************************************")
            MainProgram.State = "Open"
        ElseIf txt = Mid("no", 1, nputlen) Then
            MainProgram.SND("/wSardis - /G" + Chr(34) + "/gWell, thats okay. I wish you the best though. Come back to me if you change your mind./G" + Chr(34))
            MainProgram.SND("/gSardis smiles.")
            MainProgram.State = "Open"
            CMD("look")
        ElseIf txt = Mid("goodbye", 1, nputlen) Then
            MainProgram.State = "Open"
            CMD("look")
        Else
            MainProgram.SND("/R" + txt + " is not one of the options.")
        End If
    End Sub
#End Region
End Module
